home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / text / tex / mma2ltx121.lha / mma2ltx / mmatext.sty < prev    next >
Text File  |  1995-05-16  |  10KB  |  287 lines
  1. %
  2. % macros for picture produced by "mma2ltx"
  3. % version 1.21 - 16 May 1995
  4. %
  5. % Copyright (C) 1994, 1995 by Giuseppe Ghib\`o (<ghibo@galileo.polito.it>)
  6. %
  7. % ----------------------------------------------------------------------------
  8. %
  9. \typeout{Document Style `mmatext' - v1.21 (16/5/95) - (C) 1994,1995 by Giuseppe Ghibo`}
  10. %
  11. % 
  12. \gdef\mma@prologue{texmma22.pro}% Mathematica v2.2 PostScript prologue file.
  13. %
  14. %
  15. \newdimen\mma@tmpdima
  16. \newdimen\mma@tmpdimb
  17. \newdimen\mma@tmpdimc
  18. \newdimen\mma@tmpdimd
  19. \newbox\mma@tmpbox
  20. %
  21. %
  22. % \mmaheaderprotrue   = include the prologue file \mma@prologue (once) using
  23. %                       the \special{header=...}.
  24. % \mmaheaderprofalse  = don't include the prologue file \mma@prologue.
  25. % \mma@proloadedtrue  = the prologue \mma@prologue has been already loaded.
  26. % \mma@proloadedfalse = the prologue \mma@prologue has not been loaded.
  27. % \mma@whitebgtrue    = the object will have a white background
  28. % \mma@whitebgfalse   = the object will have a transparent background
  29. \newif\ifmmaheaderpro  \mmaheaderprotrue
  30. \newif\ifmma@proloaded \mma@proloadedfalse
  31. \newif\ifmma@whitebg
  32. %
  33. %
  34. % \@nameedef is similar to the LaTeX command \@namedef, except it uses \edef
  35. % instead of \def.
  36. \def\@nameedef#1{\expandafter\edef\csname #1\endcsname}
  37. %
  38. \let\ccd=\catcode
  39. \ccd`\p=12\ccd`\t=12
  40. \def\del@dim#1pt{#1}%
  41. \ccd`\p=11\ccd`\t=11
  42. %
  43. \def\pt@mm{0.3514598}\def\unit@mm{mm}%
  44. \def\pt@cm{0.03514598}\def\unit@cm{cm}%
  45. \def\pt@pt{1}\def\unit@pt{pt}%
  46. \def\pt@bp{0.99626401}\def\unit@bp{bp}%
  47. \def\pt@pc{0.08333333}\def\unit@pc{pc}%
  48. \def\pt@in{0.013837}\def\unit@in{in}%
  49. \def\pt@dd{0.9345719}\def\unit@dd{dd}%
  50. \def\pt@cc{0.07788099}\def\unit@cc{cc}%
  51. \def\pt@dbp{9.9626401}\def\unit@dbp{dbp}%
  52. %
  53. \def\deldim#1{\expandafter\del@dim\the#1}%trash the trailing 'pt'
  54. \def\dimtomac#1#2#3{%
  55. % \dimtomac (expands a dimension register into a macro)
  56. % #1 = a dimension register (e.g., \mydim, \dimen0, ...)
  57. % #2 = conversion factor from pt to a choosed unit or
  58. %      one of mm, cm, pt, bp, pc, in, dd, cc, sp, dbp.
  59. % #3 = macro to which assign the converted value.
  60. \lowercase{\edef\convfactor{#2}}
  61. \ifx\convfactor\unit@mm\def\convfactor{\pt@mm}\else
  62. \ifx\convfactor\unit@cm\def\convfactor{\pt@cm}\else
  63. \ifx\convfactor\unit@pt\def\convfactor{\pt@pt}\else
  64. \ifx\convfactor\unit@bp\def\convfactor{\pt@bp}\else
  65. \ifx\convfactor\unit@dbp\def\convfactor{\pt@dbp}\else
  66. \ifx\convfactor\unit@pc\def\convfactor{\pt@pc}\else
  67. \ifx\convfactor\unit@in\def\convfactor{\pt@in}\else
  68. \ifx\convfactor\unit@dd\def\convfactor{\pt@dd}\else
  69. \ifx\convfactor\unit@cc\def\convfactor{\pt@cc}\else
  70. \fi\fi\fi\fi\fi\fi\fi\fi\fi
  71. \mma@tmpdima=#1%
  72. \ifx\convfactor\unit@sp\@nameedef{#3}{\number\mma@tmpdima}\else
  73. \mma@tmpdimb=\convfactor\mma@tmpdima%
  74. \@nameedef{#3}{\deldim\mma@tmpdimb}\fi
  75. }% end of dimtomac definition
  76. %
  77. %
  78. \newdimen\mma@dimunit \mma@dimunit=1bp
  79. \newdimen\mma@llx \newdimen\mma@urx \newdimen\mma@width  \newdimen\mma@oldwd
  80. \newdimen\mma@lly \newdimen\mma@ury \newdimen\mma@height \newdimen\mma@oldht
  81. \newdimen\mma@x \newdimen\mma@y
  82. \newdimen\mma@deltax \newdimen\mma@deltay
  83. %
  84. \gdef\mma@wd{161}%  default width in bp
  85. \gdef\mma@ht{100}%  default height in bp
  86. \gdef\mma@unit{bp}% default unit = bp
  87. \mma@width=\mma@wd bp
  88. \mma@height=\mma@ht bp
  89. \mma@llx=\z@ \mma@urx=\mma@width
  90. \mma@lly=\z@ \mma@ury=\mma@height
  91. \mma@deltax=\z@ \mma@deltay=\z@
  92. %
  93. %
  94. % *************
  95. % *           *
  96. % * mmasetpic *
  97. % *           *
  98. % *************
  99. \def\mmasetpic(#1,#2){\@ifnextchar({\mma@oldsetpic(#1,#2)}{%
  100. \mma@setpic(#1,#2)}}
  101. %
  102. \def\mma@setpic(#1,#2)[#3]#4{%
  103. % #1 = width of Mathematica PostScript picture
  104. % #2 = height of Mathematica PostScript picture
  105. % #3 = unit of measure
  106. % #4 = PostScript filename
  107. \lowercase{\edef\mma@unit{#3}}
  108. \mma@dimunit=1\mma@unit
  109. \mma@llx=\z@ \mma@urx=#1\mma@dimunit
  110. \mma@lly=\z@ \mma@ury=#2\mma@dimunit
  111. \mma@width=#1\mma@dimunit \mma@height=#2\mma@dimunit
  112. \mma@oldwd=\mma@width \mma@oldht=\mma@height
  113. \dimtomac{\mma@oldwd}{bp}{mma@wd}
  114. \dimtomac{\mma@oldht}{bp}{mma@ht}
  115. \def\mma@psname{#4}
  116. %
  117. % include the prologue file \mma@prologue at most once.
  118. \ifmma@proloaded\else
  119. \ifmmaheaderpro\special{header=texmma22.pro}\global\mma@proloadedtrue\fi
  120. \fi
  121. }
  122. %
  123. %
  124. % ***************
  125. % *             *
  126. % * mmatextfits *
  127. % *             *
  128. % ***************
  129. \def\mmatextfits(#1,#2)(#3,#4){\@ifnextchar({\mma@textfits(#1,#2)(#3,#4)}{%
  130.         \mma@textfits(#1,#2)(#3,#4)(0,0)}}
  131. %
  132. \def\mma@textfits(#1,#2)(#3,#4)(#5,#6)#7{%
  133. % #1 = x coord.
  134. % #2 = y coord.
  135. % #3 = sdx (bounding box x offs., like the Mathematica command "Text")
  136. % #4 = sdx (bounding box y offs., like the Mathematica command "Text")
  137. % #5 = extra offset to the x coord.
  138. % #6 = extra offset to the y coord.
  139. % #7 = text to fit.
  140. \setbox\mma@tmpbox=\hbox{#7}
  141. %
  142. % tmpllx = x - 1/2*wd*(sdx+1)
  143. \mma@tmpdima=#1\mma@dimunit \advance\mma@tmpdima by #5\mma@dimunit
  144. \mma@tmpdimb=#3\wd\mma@tmpbox
  145. \advance\mma@tmpdimb by \wd\mma@tmpbox
  146. \divide\mma@tmpdimb by 2
  147. \advance\mma@tmpdima by -\mma@tmpdimb
  148. \ifdim\mma@tmpdima < \mma@llx \mma@llx=\mma@tmpdima\fi
  149. %
  150. % tmplly = y - 1/2*(ht+dp)*(sdy+1)
  151. \mma@tmpdima=#2\mma@dimunit \advance\mma@tmpdima by #6\mma@dimunit
  152. \mma@tmpdimb=\ht\mma@tmpbox
  153. \advance\mma@tmpdimb by \dp\mma@tmpbox
  154. \mma@tmpdimb=#4\mma@tmpdimb
  155. \advance\mma@tmpdimb by \ht\mma@tmpbox
  156. \advance\mma@tmpdimb by \dp\mma@tmpbox
  157. \divide\mma@tmpdimb by 2
  158. \advance\mma@tmpdima by -\mma@tmpdimb
  159. \ifdim\mma@tmpdima < \mma@lly \mma@lly=\mma@tmpdima\fi
  160. %
  161. % tmpurx = x - 1/2*wd*(sdx-1)
  162. \mma@tmpdima=#1\mma@dimunit \advance\mma@tmpdima by #5\mma@dimunit
  163. \mma@tmpdimb=#3\wd\mma@tmpbox
  164. \advance\mma@tmpdimb by -\wd\mma@tmpbox
  165. \divide\mma@tmpdimb by 2
  166. \advance\mma@tmpdima by -\mma@tmpdimb
  167. \ifdim\mma@tmpdima > \mma@urx \mma@urx=\mma@tmpdima\fi
  168. %
  169. % tmpury = y - 1/2*(ht+dp)*(sdy-1)
  170. \mma@tmpdima=#2\mma@dimunit \advance\mma@tmpdima by #6\mma@dimunit
  171. \mma@tmpdimb=\ht\mma@tmpbox
  172. \advance\mma@tmpdimb by \dp\mma@tmpbox
  173. \mma@tmpdimb=#4\mma@tmpdimb
  174. \advance\mma@tmpdimb by -\ht\mma@tmpbox
  175. \advance\mma@tmpdimb by -\dp\mma@tmpbox
  176. \divide\mma@tmpdimb by 2
  177. \advance\mma@tmpdima by -\mma@tmpdimb
  178. \ifdim\mma@tmpdima > \mma@ury \mma@ury=\mma@tmpdima\fi
  179. %
  180. % Recalculate new picture size
  181. \mma@width=\mma@urx \advance\mma@width by -\mma@llx
  182. \mma@height=\mma@ury \advance\mma@height by -\mma@lly
  183. \mma@deltax=\mma@width \advance\mma@deltax by -\mma@oldwd
  184. \mma@deltay=\mma@height \advance\mma@deltay by -\mma@oldht
  185. }% end of \mmatextfits definition
  186. %
  187. %
  188. % **************
  189. % *            *
  190. % * mmapicture *
  191. % *            *
  192. % **************
  193. \def\mmapicture{%
  194. \bgroup
  195. \unitlength=1sp% so we can use the command \number
  196. \dimtomac{\mma@width}{\mma@unit}{mma@truewd}
  197. \dimtomac{\mma@height}{\mma@unit}{mma@trueht}
  198. \dimtomac{\mma@deltax}{\mma@unit}{mma@dx}
  199. \dimtomac{\mma@deltay}{\mma@unit}{mma@dy}
  200. \typeout{Mathematica  picture:\space'\mma@psname'\space%
  201.      size=(\mma@truewd\space x\space\mma@trueht\space\mma@unit)}
  202. \ifdim\mma@deltax > 0pt
  203.    \typeout{Mathematica picture:\space'\mma@psname'\space%
  204.             deltax=\mma@dx\space\mma@unit}
  205. \fi
  206. \ifdim\mma@deltay > 0pt
  207.    \typeout{Mathematica picture:\space'\mma@psname'\space%
  208.             deltay=\mma@dy\space\mma@unit}
  209. \fi
  210. \@killglue
  211. \begin{picture}(\number\mma@width,\number\mma@height)(\number\mma@llx,\number\mma@lly)
  212. \put(0,0){\special{psfile=\mma@psname\space hsize=\mma@wd\space vsize=\mma@ht}}}
  213. %
  214. \def\endmmapicture{\end{picture}\egroup}
  215. %
  216. %
  217. % **************
  218. % *            *
  219. % * mmaputtext *
  220. % *            *
  221. % **************
  222. \def\mmaputtext{\@ifstar{\mma@whitebgtrue\mma@puttext}{\mma@whitebgfalse%
  223. \mma@puttext}}
  224.  
  225. \def\mma@puttext(#1,#2)(#3,#4){\@ifnextchar({\mma@@puttext(#1,#2)(#3,#4)}{%
  226.         \mma@@puttext(#1,#2)(#3,#4)(0,0)}}
  227. %
  228. \def\mma@@puttext(#1,#2)(#3,#4)(#5,#6)#7{%
  229. % #1 = x coord.
  230. % #2 = y coord.
  231. % #3 = sdx (bounding box x offs., like the command "Text" of Mathematica)
  232. % #4 = sdx (bounding box y offs., like the command "Text" of Mathematica)
  233. % #5 = offset to the x coord.
  234. % #6 = offset to the y coord.
  235. % #7 = text (or object) to put.
  236. %
  237. \setbox\mma@tmpbox=\hbox{#7}
  238. \mma@x=#1\mma@dimunit \advance\mma@x by #5\mma@dimunit
  239. \mma@y=#2\mma@dimunit \advance\mma@y by #6\mma@dimunit
  240. %
  241. % xp = x - 1/2 * wd * (sdx + 1)
  242. \mma@tmpdima=#3\wd\mma@tmpbox
  243. \advance\mma@tmpdima by \wd\mma@tmpbox
  244. \divide\mma@tmpdima by 2
  245. \advance\mma@x by -\mma@tmpdima
  246. %
  247. % yp = y - 1/2*(sdy*htot + ht - dp)
  248. \mma@tmpdima=\ht\mma@tmpbox
  249. \advance\mma@tmpdima by \dp\mma@tmpbox
  250. \mma@tmpdima=#4\mma@tmpdima
  251. \advance\mma@tmpdima by \ht\mma@tmpbox
  252. \advance\mma@tmpdima by -\dp\mma@tmpbox
  253. \divide\mma@tmpdima by 2
  254. \advance\mma@y by -\mma@tmpdima
  255. %
  256. \mma@tmpdimc=\dp\mma@tmpbox
  257. \ifmma@whitebg
  258. \mma@tmpdimc=\wd\mma@tmpbox
  259. \mma@tmpdimd=\ht\mma@tmpbox \advance\mma@tmpdimd by \dp\mma@tmpbox
  260. \dimtomac{\mma@tmpdimc}{bp}{mma@tmpwd}
  261. \dimtomac{\mma@tmpdimd}{bp}{mma@tmpht}
  262. \advance\mma@y by -\dp\mma@tmpbox% special{psfile=mmawhite.eps...} has zero depth
  263. \put(\number\mma@x,\number\mma@y){\makebox(0,0)[lb]{\special{psfile=mmawhite.eps\space hsize=\mma@tmpwd\space vsize=\mma@tmpht}}}
  264. \advance\mma@y by \dp\mma@tmpbox\fi
  265. \put(\number\mma@x,\number\mma@y){\makebox(0,0)[lb]{\box\mma@tmpbox}}
  266. }% end of \mma@puttext definition
  267. %
  268. %
  269. % For backward compatibility with mma2ltx v1.03
  270. \def\mmashowunit#1{\gdef\mma@unit{#1}\global\mma@dimunit=1bp}
  271. %
  272. % For backward compatibility with mma2ltx v1.03
  273. \def\mma@oldsetpic(#1,#2)(#3,#4,#5,#6)#7{%
  274. % #1 = width of Mathematica PostScript picture in bp
  275. % #2 = height of Mathematica PostScript picture in bp
  276. % #3,#4,#5,#6 = transformation matrix (never used).
  277. % #7 = PostScript filename
  278. %
  279. \mma@llx=\z@ \mma@urx=#1\mma@dimunit
  280. \mma@lly=\z@ \mma@ury=#2\mma@dimunit
  281. \mma@width=#1\mma@dimunit \mma@height=#2\mma@dimunit
  282. \mma@oldwd=\mma@width \mma@oldht=\mma@height
  283. \gdef\mma@wd{#1} \gdef\mma@ht{#2}
  284. \gdef\mma@psname{#7}
  285. \ifmma@proloaded\else\special{header=texmma22.pro}\global\mma@proloadedtrue\fi
  286. }% end of mmaoldsetpic definition
  287.